Chip 1999 March/CHIP Turkiye Mart 1999.iso/araclar/Win98/HTML-Tool/DWESD.EXE/data.z/guided_tour.dcr/Standard_102_External Navigate.ls

Text File | 1998-04-02 | 1.6 KB | 58 lines

property whichSprite, startMember, rollOverMember, mouseDownMember, currentOverMember, whereToGo, pPlayFromList
global gMovieList, gMovieCounter, gOneShot

on beginSprite me
  set currentOverMember to rollOverMember
  set whichSprite to the spriteNum of me + 1
  set startMember to the member of sprite whichSprite
end

on mouseWithin me
  set the member of sprite whichSprite to currentOverMember
end

on mouseLeave me
  set the member of sprite whichSprite to startMember
end

on mouseDown me
  puppetSound(3, "tic")
  set currentOverMember to mouseDownMember
  set the member of sprite whichSprite to mouseDownMember
end

on mouseUp me
  goTheRightPlace()
end

on mouseUpOutSide me
  set currentOverMember to rollOverMember
end

on goTheRightPlace me
  wait(10)
  if pPlayFromList = 1 then
    if gMovieCounter = 0 then
      set gOneShot to 0
      go("SHOW ME ALL 1")
      set gMovieCounter to gMovieCounter + 1
    else
      set gOneShot to 0
      play movie getAt(gMovieList, gMovieCounter)
      set gMovieCounter to gMovieCounter + 1
    end if
  else
    set gOneShot to 1
    play movie getAt(gMovieList, whereToGo)
  end if
end

on getPropertyDescriptionList
  set propertyDescriptionList to [#pPlayFromList: [#comment: "Play from list?:", #format: #boolean, #default: 0], #whereToGo: [#comment: "Play what movie:", #format: #integer, #default: 0], #rollOverMember: [#comment: "rollOver member:", #format: #bitmap, #default: EMPTY], #mouseDownMember: [#comment: "mouseDown member:", #format: #bitmap, #default: EMPTY]]
  return propertyDescriptionList
end

on getBehaviorDescription
  return EMPTY
end